# name : rpact recruitment rate as list
# key : rpact.recruitment.rate.list
# contributor: Shuguang Sun
# --
rr <- c(0.25, 0.25, 0.25, 0.50, 0.50, 0.50, 0.75, 0.75, 0.75, 1.00) * ${1:20}
names(rr) <- c("0 - <1",
               "1 - <2",
               "2 - <3",
               "3 - <4",
               "4 - <5",
               "5 - <6",
               "6 - <7",
               "7 - <8",
               "8 - <9",
               "9 - Inf")

at <- as.list(rr)
cumsum(at)
